home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 1 / Gold Medal Software Volume 1 (Gold Medal) (1994).iso / prog / tpwprog7.arj / MINMDI.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-07-02  |  869 b   |  43 lines
  1. { minmdi.pas -- Minimum MDI Application }
  2.  
  3. program MinMDI;
  4.  
  5. {$R minmdi.res}
  6.  
  7. uses WinTypes, WinProcs, WObjects;
  8.  
  9. const
  10.  
  11.   id_Menu = 'MDIMenu';    { Menu resource ID }
  12.  
  13. type
  14.  
  15.   MinMDIApplication = object(TApplication)
  16.     procedure InitMainWindow; virtual;
  17.   end;
  18.  
  19. { MinMDIApplication }
  20.  
  21. {- Initialize MinMDIApplication object's window }
  22. procedure MinMDIApplication.InitMainWindow;
  23. begin
  24.   MainWindow := New(PMDIWindow, Init('Minimum MDI Application',
  25.     LoadMenu(HInstance, id_Menu)))
  26. end;
  27.  
  28. var
  29.  
  30.   MinMDIApp: MinMDIApplication;
  31.  
  32. begin
  33.   MinMDIApp.Init('MinMDIApp');
  34.   MinMDIApp.Run;
  35.   MinMDIApp.Done
  36. end.
  37.  
  38.  
  39. {--------------------------------------------------------------
  40.   Copyright (c) 1991 by Tom Swan. All rights reserved.
  41.   Revision 1.00    Date: 5/31/1991
  42. ---------------------------------------------------------------}
  43.